Shocking The Web CD-ROM/SHOCK_CD.ISO/mac/Chapter Tutorials/DevGallery/Headbone/Source/DRESSVEL.DIR/00090.ls

Text File | 1996-04-30 | 1.7 KB | 59 lines

on startMovie
  cursor(-1)
  cursor(4)
  clearGlobals()
  initGlobals()
  cursor(-1)
end

on stopMovie
end

on initGlobals
  global gHatSprite, gGlovesSprite, gShoesSprite, gJacketSprite, gShirtSprite, gPantsSprite, gElroySprite, gClosetSprite, gLeftSprite, gRightSprite, glClosetItemSprites, gcPAGES, gcItemsPerPage, gCurPage, gcHATS, gcSHIRTS, gcPANTS, gcSHOES, gcJACKETS, gcGLOVES
  set gClosetSprite to 2
  set gElroySprite to 3
  set gLeftSprite to 4
  set gRightSprite to 5
  set glClosetItemSprites to [7, 8, 9, 10, 11, 12]
  set gPantsSprite to 14
  set gShirtSprite to 15
  set gJacketSprite to 16
  set gShoesSprite to 17
  set gGlovesSprite to 18
  set gHatSprite to 19
  set gcItemsPerPage to 6
  set gcPAGES to 9
  set gcHATS to 2
  set gcSHIRTS to 2
  set gcPANTS to 2
  set gcSHOES to 1
  set gcJACKETS to 1
  set gcGLOVES to 1
  set gCurPage to 1
end

on initVisibility
  global gHatSprite, gGlovesSprite, gShoesSprite, gJacketSprite, gShirtSprite, gPantsSprite
  set the visible of sprite gPantsSprite to 0
  set the visible of sprite gShirtSprite to 0
  set the visible of sprite gJacketSprite to 0
  set the visible of sprite gShoesSprite to 0
  set the visible of sprite gGlovesSprite to 0
  set the visible of sprite gHatSprite to 0
end

on initPuppets
  global gHatSprite, gGlovesSprite, gShoesSprite, gJacketSprite, gShirtSprite, gPantsSprite
  set the puppet of sprite gPantsSprite to 1
  set the puppet of sprite gShirtSprite to 1
  set the puppet of sprite gJacketSprite to 1
  set the puppet of sprite gShoesSprite to 1
  set the puppet of sprite gGlovesSprite to 1
  set the puppet of sprite gHatSprite to 1
  cursor(-1)
  cursor(200)
  cursor(-1)
  puppetPalette("WhatThaHeckPal")
end